home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / dos / pascal / setjmps.com / LEVEL2.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-04-06  |  702 b   |  36 lines
  1. unit level2;
  2. {$O+}
  3. {$F+}  {overlayed units are usually far call model}
  4. interface
  5. uses setjmps;
  6.  
  7. procedure golevel2(VAR j:jmpBuf);
  8.  
  9. implementation
  10.  
  11. procedure golevel2(VAR j:jmpBuf);
  12.  
  13.   procedure nested2;
  14.   begin
  15.     writeln('now we are at least 3 procedures deep');
  16.     writeln('hit enter, and we will jump back all the way to level 1!');
  17.     readln;
  18.     jmpBack(j,1);       {jump back to level1!}
  19.     writeln('you will never see this line.');
  20.   end;
  21.  
  22.   procedure nested1;
  23.   begin
  24.     nested2;
  25.     writeln('you will never see this line.');
  26.   end;
  27.  
  28. begin
  29.   writeln('here we are in level 2.');
  30.  
  31.   nested1;         
  32.  
  33.   writeln('you will never see this line.');
  34. end;
  35.  
  36. end.